home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’92 / NotificationMon ƒ / NotificationMon.ƒ / Source / AEvents.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-06-22  |  1.3 KB  |  70 lines  |  [TEXT/KAHL]
  1. #include <AppleEvents.h>
  2.  
  3. extern Boolean Done;
  4.  
  5. pascal int AE_OpenApp( AppleEvent theAE, AppleEvent reply, long rfCon)
  6. {
  7.     return 0;
  8. }
  9.  
  10. pascal int AE_OpenDoc( AppleEvent  theAE, AppleEvent  reply, long  rfCon)
  11. {
  12.     return 0;
  13. }
  14.  
  15.  
  16. pascal int AE_PrintDoc( AppleEvent  theAE, AppleEvent  reply, long  rfCon)
  17. {
  18.     return 0;
  19. }
  20.  
  21.  
  22. pascal int AE_QuitApp( AppleEvent  theAE, AppleEvent  reply, long  rfCon)
  23. {
  24.     Done = true;        /* set flag to indicate that program should quit */    
  25.     return 0;
  26. }
  27.  
  28. void DoHighLevelEvent(EventRecord *evt)
  29. {
  30.     int    err;
  31.     
  32.     err = AEProcessAppleEvent(evt);
  33.     if(err)
  34.     {
  35.         error("\pError occured processing AE.",err);
  36.     }    
  37. }
  38.  
  39. void InitAppleEvents()
  40. {
  41.     int    err;
  42.     
  43.     err = AEInstallEventHandler (kCoreEventClass, kAEOpenApplication, AE_OpenApp,0,FALSE);
  44.     if(err)
  45.     {
  46.         error("\pCould not install AE handler.",err);
  47.         ExitToShell();
  48.     }
  49.     
  50.     err = AEInstallEventHandler (kCoreEventClass, kAEOpenDocuments, AE_OpenDoc,0,FALSE);
  51.     if(err)
  52.     {
  53.         error("\pCould not install AE handler.",err);
  54.         ExitToShell();
  55.     }
  56.         
  57.     err = AEInstallEventHandler (kCoreEventClass, kAEPrintDocuments, AE_PrintDoc,0,FALSE);
  58.     if(err)
  59.     {
  60.         error("\pCould not install AE handler.",err);
  61.         ExitToShell();
  62.     }
  63.     err = AEInstallEventHandler (kCoreEventClass, kAEQuitApplication, AE_QuitApp,0,FALSE);
  64.     if(err)
  65.     {
  66.         error("\pCould not install AE handler.",err);
  67.         ExitToShell();
  68.     }
  69.     
  70. }